
(define-macro (test-macro a) 
  (+ a 7))

(test-macro 5)				; => 12

(map test-macro '(6 7))			; => ERROR

